学以致用

您所在的位置：网站首页 › 用vba 打开文件并复制内容到工作表中怎么操作不了 › 学以致用

学以致用

2024-06-18 16:08:21| 来源: 网络整理| 查看: 265

需求描述：

为了方便管理大量的简历文件，需要将简历文件列表导入Excel中，然后筛选符合条件的简历，并直接在Excel中打开简历文件。

本段代码即可实现以下功能：

1. 支持用户根据实际情况（个人电脑中的文件系统）选择简历所在路径

2. 遍历指定文件夹，将其中的文件名及其路径分别写入工作表中

代码如下： Sub extractFileList_Rival() 'Developed by PDH on 20190720 Application.ScreenUpdating = False On Error Resume Next With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = "Computer" .Show If .SelectedItems.Count > 0 Then myPath = .SelectedItems(1) Else Exit Sub End If End With Set fso = CreateObject("scripting.filesystemobject") Set ff = fso.getfolder(myPath) '遍历指定文件夹 ThisWorkbook.Sheets("CV").Columns("A:B").ClearContents ThisWorkbook.Sheets("CV").Cells(1, 1) = "File Name" ThisWorkbook.Sheets("CV").Cells(1, 2) = "Path" For Each f In ff.Files Cells(Rows.Count, 1).End(3).Offset(1) = f.Name '第一列最后一个有数据的单元格向下偏移一个单元格，1234分别对应左右上下(xlup, xldown, xltoleft, xltoright)，3=xlup Cells(Rows.Count, 2).End(3).Offset(1) = Mid(f, 1, Len(f) - Len(f.Name) - 1) ' 获取文件对应的路径名 Next f If Cells(2, 1) = "" Then MsgBox "No file exists" End If Application.ScreenUpdating = True End Sub

【本文地址】

公司简介

联系我们

今日新闻

点击排行

实验室常用的仪器、试剂和: 说到实验室常用到的东西，主要就分为仪器、试剂和耗

不用再找了，全球10大实验: 01、赛默飞世尔科技（热电）Thermo Fisher Scientif

三代水柜的量产巅峰T-72坦: 作者：寞寒最近，西边闹腾挺大，本来小寞以为忙完这

通风柜跟实验室通风系统有: 说到通风柜跟实验室通风，不少人都纠结二者到底是不

集消毒杀菌、烘干收纳为一: 厨房是家里细菌较多的地方，潮湿的环境、没有完全密

实验室设备之全钢实验台如: 全钢实验台是实验室家具中较为重要的家具之一，很多

图片新闻

实验室药品柜的特性有哪些: 实验室药品柜是实验室家具的重要组成部分之一，主要

小学科学实验中有哪些教学: 计算机计算器一般打孔器打气筒仪器车显微镜

实验室各种仪器原理动图讲: 1.紫外分光光谱UV分析原理：吸收紫外光能量，引起分

高中化学常见仪器及实验装: 1、可加热仪器：2、计量仪器：（1）仪器A的名称：量

微生物操作主要设备和器具: 今天盘点一下微生物操作主要设备和器具，别嫌我啰嗦

浅谈通风柜使用基本常识: 　众所周知，通风柜功能中最主要的就是排气功能。在

学以致用

学以致用

今日新闻

点击排行

推荐新闻

图片新闻

专题文章